home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
94xx
/
9403a.d64
/
kalender prg. 6
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
504b
|
24 lines
10 INPUT"DATUM FORMAT TTMMJJJJ ";D$
20 T=VAL(MID$(D$,1,2))
30 M=VAL(MID$(D$,3,2))
40 J=VAL(MID$(D$,5))
50 GOSUB 1000
60 UNT=JD-723121+2
70 TAG=UNT-INT(UNT/7)*7
80 TAG$(0)="SONNTAG"
90 TAG$(1)="MONTAG"
100 TAG$(2)="DIENSTAG"
110 TAG$(3)="MITTWOCH"
120 TAG$(4)="DONNERSTAG"
130 TAG$(5)="FREITAG"
140 TAG$(6)="SAMSTAG"
150 PRINT"WOCHENTAG: "TAG$(TAG)
160 END
1000 REM KALENDER -> JULIANISCH
1010 IF M>2 THEN M=M-3:GOTO 1030
1020 M=M+9:J=J-1
1030 JH=INT(J/100):JA=J-100*JH
1040 JD=INT(146097*JH/4)+INT(1461*JA/4)
1050 JD=JD+INT((153*M+2)/5)+T
1060 RETURN